; Pop This Into The End Of Your Main Seg. jpe UPDATED June 4th, 1989 @ 03:12
; Add A Show file thingy from yer Main menu or something. Here's a clue: if i$="3" f$="b1:usage":goto show.file
; I also added an * if i$="-" and info(5) gosub newmo:return * to the Main cmnd section so the sysop can update the records anytime he wants. *
; These Mods Tested and Debugged! By ProBOARD Custom Edition GBBS @ 805-239-4292
Termin2 <---- Just so ya know where we are
on nocar goto term5
if (not ma) or (not flag(34)) goto termin1
if ma and flag(34) input @2 \"Delete Mail (Y/[N]) ?" i$:if i$="" i$="N"
i$=left$(i$,1):ma=(i$="Y")
; Reset Message Mod Added 03-07-89
Termin1
if mn-lr<10 goto term1 <- Change the ten to whatever
print\"Since You Still Have "(mn-lr)" Messages"
print"Left Unread, Would You Like To Clear"
print"Your Message Counter And Start Fresh"
print"On Your Next Call? (Y/[N]) ";
get i$:if i$=chr$(13) print " "
print chr$(8)" "chr$(8);:if i$="Y" or i$="y" then lr=mn:print" Done!":else print" UnChanged!"
; Reset Message Mod Above The below is just from STAC and to show ya where we is here... ALSO IF THE LINE ABOVE HAS A C/R AT THE END THEN YOU BETTER CHECK FOR THAT ON LINES OVER 80 COLUMNS LONG
Term1
on nocar clear
close:clear #8
a=0:open #1,"b8:top.uploaders"
for x=1 to 10:input #1,i$,a1,a2
if (a3$=i$) and (u2=a2) x=10:next:goto nowrite
if (u1>a1) and not(a) print #8,a3$,u1,u2:a=1:goto top1
if (u1=a1) and (u2>a2) and not(a) print #8,a3$,u1,u2:a=1
Top1
if a3$=i$ next:goto top2
print #8,i$,a1,a2:next
Top2
close:if not(a) goto nowrite
kill "b8:top.uploaders":create "b8:top.uploaders"
open #1,"b8:top.uploaders":copy #8,#1:close
a=x
print\":"chr$(61,77)":"
print": "chr$(15)" By the way... You are one of the Top 10 Uploaders! "chr$(14)" :"
print":"chr$(61,77)":"\
Nowrite
; -=[ Monthly Time Mod (C) By Greg Ring And John Edwards May 89 ]=-
; Monthly Time Mod Above, Updated June 4th, 1989 (C) by jpe For A.1 Computing
; Remember To Either Add The Label Below Or Stick The Subroutine Somewhere else and remove the goto bye jpe 05-07-89 Send $1 to 262 San Fernando Dr. Paso Robles, CA 93446 For More...
Bye
print \"Goodbye "a1$","\"you were caller #"cn$
print \"Thank you for calling "sn$
if a print \"Connected "a/60" mins, "a mod 60" secs"
; Listing continues as was......
; Many More Mods Available On ProBOARD 805-239-4292 NewPass:Redwings
; Many Many Thanks To Greg Ring For The Idea and Help Writing This! All
; Donations will be shared just specify that it's for TIMETRACKER.